home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / AIRPLANE_FORMATION.TCL < prev    next >
Encoding:
Text File  |  2001-06-27  |  577 b   |  28 lines
  1. # -----------------------------------------------------------
  2. # Allgemeine Manoever fuer Vehicle:
  3. # einfacher Zielanflug
  4. #
  5. #   ⌐ radon labs gmbh
  6. #
  7. #   08-Aug-00   af      created
  8. # ------------------------------------------------------------
  9.  
  10. # eine Root fuer Anflugmanoever
  11. new nroot airplane/formation
  12. sel airplane/formation
  13.  
  14. # einfaches Anfliegen
  15. new ncommandlist goto
  16. goto.setadjusttype      reach
  17. goto.settestcommand     afgoto_test
  18. goto.addcommand true 0 0 -500 false 0 0 0 nothing 1.0
  19.  
  20. proc afgoto_test {} { 
  21.  
  22.     return 1.0
  23. }
  24.  
  25. sel ..
  26. sel ..
  27.  
  28.